COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	Trying to get box like
C00004 ENDMK
C⊗;
Trying to get box like
	------------------------------------------------------------------
	|This is one boundary. It extends to the right hand margin,  here|
		|Every successing line is further indented, still meeting|
		|the left hand margin.  Note the first line  is  indented|
		|the right hand margin. 				 |
		----------------------------------------------------------
This almost works.
\def\ClassEntry <#1 #2 #3 <#4>>
	{{ % \def\par{\holdpar\noindent\hangindent 15pt after 1}
	\yyskip\noindent\hangindent 15pt after 1
	{{\Heavy _#1_} ({\it #2}) - #3 }
		% this is the basic description (raw text)
	\parshape 2 10pt 1wd8 1wd1 1wd2 #4
	\parshape 0}}
\def\CFact #1@{\hmode\hbox to 1wd1{#1:\hfil}\!}
\def\SlotEntry <#1 #2 #3 <#4>>
	{{ % \def\par{\holdpar\noindent\hangindent 15pt}
	\yskip\noindent\hangindent 15pt after 1
	{{\it #1} -- [#2] #3 \par}
		 % this is the basic description (raw text)
	\parshape 2 10pt 1wd8 1wd3 1wd4 #4
	\parshape 0}}
\def\SFact #1@{\hmode\hbox to 1wd3{#1:\hfil}\!}
\def\SlotsFor #1{\par\ctrline{\it 
	The following slots are defined for all ``{\rm #1}''s:}}
\def\SlotIndex (#1 #2){{\hbox to 1wd6{\Slot (#1)}}..{\Unit (#2)}}
	% eventually this will be a real index...